/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / comp / cmdopt.t

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 63 6d 64 6f 70 74 | 2e 74 00 00 00 00 00 00 |..cmdopt|.t......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0b 9d 00 | 00 01 ac a4 40 df ae a4 |........|....@...|
|00000060| 40 df ae 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |@.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1b 33 00 00 |........|.....3..|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 63 6d 64 | 6f 70 74 2e 74 2c 76 20 |der: cmd|opt.t,v |
|000000a0| 34 2e 30 20 39 31 2f 30 | 33 2f 32 30 20 30 31 3a |4.0 91/0|3/20 01:|
|000000b0| 34 39 3a 35 38 20 6c 77 | 61 6c 6c 20 4c 6f 63 6b |49:58 lw|all Lock|
|000000c0| 65 64 20 24 0d 0d 70 72 | 69 6e 74 20 22 31 2e 2e |ed $..pr|int "1..|
|000000d0| 34 30 5c 6e 22 3b 0d 0d | 23 20 74 65 73 74 20 74 |40\n";..|# test t|
|000000e0| 68 65 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |he optim|ization |
|000000f0| 6f 66 20 63 6f 6e 73 74 | 61 6e 74 73 0d 0d 69 66 |of const|ants..if|
|00000100| 20 28 31 29 20 7b 20 70 | 72 69 6e 74 20 22 6f 6b | (1) { p|rint "ok|
|00000110| 20 31 5c 6e 22 3b 7d 20 | 65 6c 73 65 20 7b 20 70 | 1\n";} |else { p|
|00000120| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 31 5c 6e |rint "no|t ok 1\n|
|00000130| 22 3b 7d 0d 75 6e 6c 65 | 73 73 20 28 30 29 20 7b |";}.unle|ss (0) {|
|00000140| 20 70 72 69 6e 74 20 22 | 6f 6b 20 32 5c 6e 22 3b | print "|ok 2\n";|
|00000150| 7d 20 65 6c 73 65 20 7b | 20 70 72 69 6e 74 20 22 |} else {| print "|
|00000160| 6e 6f 74 20 6f 6b 20 32 | 5c 6e 22 3b 7d 0d 0d 69 |not ok 2|\n";}..i|
|00000170| 66 20 28 30 29 20 7b 20 | 70 72 69 6e 74 20 22 6e |f (0) { |print "n|
|00000180| 6f 74 20 6f 6b 20 33 5c | 6e 22 3b 7d 20 65 6c 73 |ot ok 3\|n";} els|
|00000190| 65 20 7b 20 70 72 69 6e | 74 20 22 6f 6b 20 33 5c |e { prin|t "ok 3\|
|000001a0| 6e 22 3b 7d 0d 75 6e 6c | 65 73 73 20 28 31 29 20 |n";}.unl|ess (1) |
|000001b0| 7b 20 70 72 69 6e 74 20 | 22 6e 6f 74 20 6f 6b 20 |{ print |"not ok |
|000001c0| 34 5c 6e 22 3b 7d 20 65 | 6c 73 65 20 7b 20 70 72 |4\n";} e|lse { pr|
|000001d0| 69 6e 74 20 22 6f 6b 20 | 34 5c 6e 22 3b 7d 0d 0d |int "ok |4\n";}..|
|000001e0| 75 6e 6c 65 73 73 20 28 | 21 31 29 20 7b 20 70 72 |unless (|!1) { pr|
|000001f0| 69 6e 74 20 22 6f 6b 20 | 35 5c 6e 22 3b 7d 20 65 |int "ok |5\n";} e|
|00000200| 6c 73 65 20 7b 20 70 72 | 69 6e 74 20 22 6e 6f 74 |lse { pr|int "not|
|00000210| 20 6f 6b 20 35 5c 6e 22 | 3b 7d 0d 69 66 20 28 21 | ok 5\n"|;}.if (!|
|00000220| 30 29 20 7b 20 70 72 69 | 6e 74 20 22 6f 6b 20 36 |0) { pri|nt "ok 6|
|00000230| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 20 70 72 69 |\n";} el|se { pri|
|00000240| 6e 74 20 22 6e 6f 74 20 | 6f 6b 20 36 5c 6e 22 3b |nt "not |ok 6\n";|
|00000250| 7d 0d 0d 75 6e 6c 65 73 | 73 20 28 21 30 29 20 7b |}..unles|s (!0) {|
|00000260| 20 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 37 | print "|not ok 7|
|00000270| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 20 70 72 69 |\n";} el|se { pri|
|00000280| 6e 74 20 22 6f 6b 20 37 | 5c 6e 22 3b 7d 0d 69 66 |nt "ok 7|\n";}.if|
|00000290| 20 28 21 31 29 20 7b 20 | 70 72 69 6e 74 20 22 6e | (!1) { |print "n|
|000002a0| 6f 74 20 6f 6b 20 38 5c | 6e 22 3b 7d 20 65 6c 73 |ot ok 8\|n";} els|
|000002b0| 65 20 7b 20 70 72 69 6e | 74 20 22 6f 6b 20 38 5c |e { prin|t "ok 8\|
|000002c0| 6e 22 3b 7d 0d 0d 24 78 | 20 3d 20 31 3b 0d 69 66 |n";}..$x| = 1;.if|
|000002d0| 20 28 31 20 26 26 20 24 | 78 29 20 7b 20 70 72 69 | (1 && $|x) { pri|
|000002e0| 6e 74 20 22 6f 6b 20 39 | 5c 6e 22 3b 7d 20 65 6c |nt "ok 9|\n";} el|
|000002f0| 73 65 20 7b 20 70 72 69 | 6e 74 20 22 6e 6f 74 20 |se { pri|nt "not |
|00000300| 6f 6b 20 39 5c 6e 22 3b | 7d 0d 69 66 20 28 30 20 |ok 9\n";|}.if (0 |
|00000310| 26 26 20 24 78 29 20 7b | 20 70 72 69 6e 74 20 22 |&& $x) {| print "|
|00000320| 6e 6f 74 20 6f 6b 20 31 | 30 5c 6e 22 3b 7d 20 65 |not ok 1|0\n";} e|
|00000330| 6c 73 65 20 7b 20 70 72 | 69 6e 74 20 22 6f 6b 20 |lse { pr|int "ok |
|00000340| 31 30 5c 6e 22 3b 7d 0d | 24 78 20 3d 20 27 27 3b |10\n";}.|$x = '';|
|00000350| 0d 69 66 20 28 31 20 26 | 26 20 24 78 29 20 7b 20 |.if (1 &|& $x) { |
|00000360| 70 72 69 6e 74 20 22 6e | 6f 74 20 6f 6b 20 31 31 |print "n|ot ok 11|
|00000370| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 20 70 72 69 |\n";} el|se { pri|
|00000380| 6e 74 20 22 6f 6b 20 31 | 31 5c 6e 22 3b 7d 0d 69 |nt "ok 1|1\n";}.i|
|00000390| 66 20 28 30 20 26 26 20 | 24 78 29 20 7b 20 70 72 |f (0 && |$x) { pr|
|000003a0| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 31 32 5c 6e |int "not| ok 12\n|
|000003b0| 22 3b 7d 20 65 6c 73 65 | 20 7b 20 70 72 69 6e 74 |";} else| { print|
|000003c0| 20 22 6f 6b 20 31 32 5c | 6e 22 3b 7d 0d 0d 24 78 | "ok 12\|n";}..$x|
|000003d0| 20 3d 20 31 3b 0d 69 66 | 20 28 31 20 7c 7c 20 24 | = 1;.if| (1 || $|
|000003e0| 78 29 20 7b 20 70 72 69 | 6e 74 20 22 6f 6b 20 31 |x) { pri|nt "ok 1|
|000003f0| 33 5c 6e 22 3b 7d 20 65 | 6c 73 65 20 7b 20 70 72 |3\n";} e|lse { pr|
|00000400| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 31 33 5c 6e |int "not| ok 13\n|
|00000410| 22 3b 7d 0d 69 66 20 28 | 30 20 7c 7c 20 24 78 29 |";}.if (|0 || $x)|
|00000420| 20 7b 20 70 72 69 6e 74 | 20 22 6f 6b 20 31 34 5c | { print| "ok 14\|
|00000430| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 20 70 72 69 6e |n";} els|e { prin|
|00000440| 74 20 22 6e 6f 74 20 6f | 6b 20 31 34 5c 6e 22 3b |t "not o|k 14\n";|
|00000450| 7d 0d 24 78 20 3d 20 27 | 27 3b 0d 69 66 20 28 31 |}.$x = '|';.if (1|
|00000460| 20 7c 7c 20 24 78 29 20 | 7b 20 70 72 69 6e 74 20 | || $x) |{ print |
|00000470| 22 6f 6b 20 31 35 5c 6e | 22 3b 7d 20 65 6c 73 65 |"ok 15\n|";} else|
|00000480| 20 7b 20 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b | { print| "not ok|
|00000490| 20 31 35 5c 6e 22 3b 7d | 0d 69 66 20 28 30 20 7c | 15\n";}|.if (0 ||
|000004a0| 7c 20 24 78 29 20 7b 20 | 70 72 69 6e 74 20 22 6e || $x) { |print "n|
|000004b0| 6f 74 20 6f 6b 20 31 36 | 5c 6e 22 3b 7d 20 65 6c |ot ok 16|\n";} el|
|000004c0| 73 65 20 7b 20 70 72 69 | 6e 74 20 22 6f 6b 20 31 |se { pri|nt "ok 1|
|000004d0| 36 5c 6e 22 3b 7d 0d 0d | 0d 23 20 74 65 73 74 20 |6\n";}..|.# test |
|000004e0| 74 68 65 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |the opti|mization|
|000004f0| 20 6f 66 20 72 65 67 69 | 73 74 65 72 73 0d 0d 24 | of regi|sters..$|
|00000500| 78 20 3d 20 31 3b 0d 69 | 66 20 28 24 78 29 20 7b |x = 1;.i|f ($x) {|
|00000510| 20 70 72 69 6e 74 20 22 | 6f 6b 20 31 37 5c 6e 22 | print "|ok 17\n"|
|00000520| 3b 7d 20 65 6c 73 65 20 | 7b 20 70 72 69 6e 74 20 |;} else |{ print |
|00000530| 22 6e 6f 74 20 6f 6b 20 | 31 37 5c 6e 22 3b 7d 0d |"not ok |17\n";}.|
|00000540| 75 6e 6c 65 73 73 20 28 | 24 78 29 20 7b 20 70 72 |unless (|$x) { pr|
|00000550| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 31 38 5c 6e |int "not| ok 18\n|
|00000560| 22 3b 7d 20 65 6c 73 65 | 20 7b 20 70 72 69 6e 74 |";} else| { print|
|00000570| 20 22 6f 6b 20 31 38 5c | 6e 22 3b 7d 0d 0d 24 78 | "ok 18\|n";}..$x|
|00000580| 20 3d 20 27 27 3b 0d 69 | 66 20 28 24 78 29 20 7b | = '';.i|f ($x) {|
|00000590| 20 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 31 | print "|not ok 1|
|000005a0| 39 5c 6e 22 3b 7d 20 65 | 6c 73 65 20 7b 20 70 72 |9\n";} e|lse { pr|
|000005b0| 69 6e 74 20 22 6f 6b 20 | 31 39 5c 6e 22 3b 7d 0d |int "ok |19\n";}.|
|000005c0| 75 6e 6c 65 73 73 20 28 | 24 78 29 20 7b 20 70 72 |unless (|$x) { pr|
|000005d0| 69 6e 74 20 22 6f 6b 20 | 32 30 5c 6e 22 3b 7d 20 |int "ok |20\n";} |
|000005e0| 65 6c 73 65 20 7b 20 70 | 72 69 6e 74 20 22 6e 6f |else { p|rint "no|
|000005f0| 74 20 6f 6b 20 32 30 5c | 6e 22 3b 7d 0d 0d 23 20 |t ok 20\|n";}..# |
|00000600| 74 65 73 74 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |test opt|imizatio|
|00000610| 6e 20 6f 66 20 73 74 72 | 69 6e 67 20 6f 70 65 72 |n of str|ing oper|
|00000620| 61 74 69 6f 6e 73 0d 0d | 24 61 20 3d 20 27 61 27 |ations..|$a = 'a'|
|00000630| 3b 0d 69 66 20 28 24 61 | 20 65 71 20 27 61 27 29 |;.if ($a| eq 'a')|
|00000640| 20 7b 20 70 72 69 6e 74 | 20 22 6f 6b 20 32 31 5c | { print| "ok 21\|
|00000650| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 20 70 72 69 6e |n";} els|e { prin|
|00000660| 74 20 22 6e 6f 74 20 6f | 6b 20 32 31 5c 6e 22 3b |t "not o|k 21\n";|
|00000670| 7d 0d 69 66 20 28 24 61 | 20 6e 65 20 27 61 27 29 |}.if ($a| ne 'a')|
|00000680| 20 7b 20 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b | { print| "not ok|
|00000690| 20 32 32 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 20 | 22\n";}| else { |
|000006a0| 70 72 69 6e 74 20 22 6f | 6b 20 32 32 5c 6e 22 3b |print "o|k 22\n";|
|000006b0| 7d 0d 0d 69 66 20 28 24 | 61 20 3d 7e 20 2f 61 2f |}..if ($|a =~ /a/|
|000006c0| 29 20 7b 20 70 72 69 6e | 74 20 22 6f 6b 20 32 33 |) { prin|t "ok 23|
|000006d0| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 20 70 72 69 |\n";} el|se { pri|
|000006e0| 6e 74 20 22 6e 6f 74 20 | 6f 6b 20 32 33 5c 6e 22 |nt "not |ok 23\n"|
|000006f0| 3b 7d 0d 69 66 20 28 24 | 61 20 21 7e 20 2f 61 2f |;}.if ($|a !~ /a/|
|00000700| 29 20 7b 20 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |) { prin|t "not o|
|00000710| 6b 20 32 34 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |k 24\n";|} else {|
|00000720| 20 70 72 69 6e 74 20 22 | 6f 6b 20 32 34 5c 6e 22 | print "|ok 24\n"|
|00000730| 3b 7d 0d 23 20 74 65 73 | 74 20 69 6e 74 65 72 61 |;}.# tes|t intera|
|00000740| 63 74 69 6f 6e 20 6f 66 | 20 6c 6f 67 69 63 61 6c |ction of| logical|
|00000750| 73 20 61 6e 64 20 6f 74 | 68 65 72 20 6f 70 65 72 |s and ot|her oper|
|00000760| 61 74 69 6f 6e 73 0d 0d | 24 61 20 3d 20 27 61 27 |ations..|$a = 'a'|
|00000770| 3b 0d 24 78 20 3d 20 31 | 3b 0d 69 66 20 28 24 61 |;.$x = 1|;.if ($a|
|00000780| 20 65 71 20 27 61 27 20 | 26 26 20 24 78 29 20 7b | eq 'a' |&& $x) {|
|00000790| 20 70 72 69 6e 74 20 22 | 6f 6b 20 32 35 5c 6e 22 | print "|ok 25\n"|
|000007a0| 3b 7d 20 65 6c 73 65 20 | 7b 20 70 72 69 6e 74 20 |;} else |{ print |
|000007b0| 22 6e 6f 74 20 6f 6b 20 | 32 35 5c 6e 22 3b 7d 0d |"not ok |25\n";}.|
|000007c0| 69 66 20 28 24 61 20 6e | 65 20 27 61 27 20 26 26 |if ($a n|e 'a' &&|
|000007d0| 20 24 78 29 20 7b 20 70 | 72 69 6e 74 20 22 6e 6f | $x) { p|rint "no|
|000007e0| 74 20 6f 6b 20 32 36 5c | 6e 22 3b 7d 20 65 6c 73 |t ok 26\|n";} els|
|000007f0| 65 20 7b 20 70 72 69 6e | 74 20 22 6f 6b 20 32 36 |e { prin|t "ok 26|
|00000800| 5c 6e 22 3b 7d 0d 24 78 | 20 3d 20 27 27 3b 0d 69 |\n";}.$x| = '';.i|
|00000810| 66 20 28 24 61 20 65 71 | 20 27 61 27 20 26 26 20 |f ($a eq| 'a' && |
|00000820| 24 78 29 20 7b 20 70 72 | 69 6e 74 20 22 6e 6f 74 |$x) { pr|int "not|
|00000830| 20 6f 6b 20 32 37 5c 6e | 22 3b 7d 20 65 6c 73 65 | ok 27\n|";} else|
|00000840| 20 7b 20 70 72 69 6e 74 | 20 22 6f 6b 20 32 37 5c | { print| "ok 27\|
|00000850| 6e 22 3b 7d 0d 69 66 20 | 28 24 61 20 6e 65 20 27 |n";}.if |($a ne '|
|00000860| 61 27 20 26 26 20 24 78 | 29 20 7b 20 70 72 69 6e |a' && $x|) { prin|
|00000870| 74 20 22 6e 6f 74 20 6f | 6b 20 32 38 5c 6e 22 3b |t "not o|k 28\n";|
|00000880| 7d 20 65 6c 73 65 20 7b | 20 70 72 69 6e 74 20 22 |} else {| print "|
|00000890| 6f 6b 20 32 38 5c 6e 22 | 3b 7d 0d 0d 24 78 20 3d |ok 28\n"|;}..$x =|
|000008a0| 20 31 3b 0d 69 66 20 28 | 24 61 20 65 71 20 27 61 | 1;.if (|$a eq 'a|
|000008b0| 27 20 7c 7c 20 24 78 29 | 20 7b 20 70 72 69 6e 74 |' || $x)| { print|
|000008c0| 20 22 6f 6b 20 32 39 5c | 6e 22 3b 7d 20 65 6c 73 | "ok 29\|n";} els|
|000008d0| 65 20 7b 20 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |e { prin|t "not o|
|000008e0| 6b 20 32 39 5c 6e 22 3b | 7d 0d 69 66 20 28 24 61 |k 29\n";|}.if ($a|
|000008f0| 20 6e 65 20 27 61 27 20 | 7c 7c 20 24 78 29 20 7b | ne 'a' ||| $x) {|
|00000900| 20 70 72 69 6e 74 20 22 | 6f 6b 20 33 30 5c 6e 22 | print "|ok 30\n"|
|00000910| 3b 7d 20 65 6c 73 65 20 | 7b 20 70 72 69 6e 74 20 |;} else |{ print |
|00000920| 22 6e 6f 74 20 6f 6b 20 | 33 30 5c 6e 22 3b 7d 0d |"not ok |30\n";}.|
|00000930| 24 78 20 3d 20 27 27 3b | 0d 69 66 20 28 24 61 20 |$x = '';|.if ($a |
|00000940| 65 71 20 27 61 27 20 7c | 7c 20 24 78 29 20 7b 20 |eq 'a' ||| $x) { |
|00000950| 70 72 69 6e 74 20 22 6f | 6b 20 33 31 5c 6e 22 3b |print "o|k 31\n";|
|00000960| 7d 20 65 6c 73 65 20 7b | 20 70 72 69 6e 74 20 22 |} else {| print "|
|00000970| 6e 6f 74 20 6f 6b 20 33 | 31 5c 6e 22 3b 7d 0d 69 |not ok 3|1\n";}.i|
|00000980| 66 20 28 24 61 20 6e 65 | 20 27 61 27 20 7c 7c 20 |f ($a ne| 'a' || |
|00000990| 24 78 29 20 7b 20 70 72 | 69 6e 74 20 22 6e 6f 74 |$x) { pr|int "not|
|000009a0| 20 6f 6b 20 33 32 5c 6e | 22 3b 7d 20 65 6c 73 65 | ok 32\n|";} else|
|000009b0| 20 7b 20 70 72 69 6e 74 | 20 22 6f 6b 20 33 32 5c | { print| "ok 32\|
|000009c0| 6e 22 3b 7d 0d 0d 24 78 | 20 3d 20 31 3b 0d 69 66 |n";}..$x| = 1;.if|
|000009d0| 20 28 24 61 20 3d 7e 20 | 2f 61 2f 20 26 26 20 24 | ($a =~ |/a/ && $|
|000009e0| 78 29 20 7b 20 70 72 69 | 6e 74 20 22 6f 6b 20 33 |x) { pri|nt "ok 3|
|000009f0| 33 5c 6e 22 3b 7d 20 65 | 6c 73 65 20 7b 20 70 72 |3\n";} e|lse { pr|
|00000a00| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 33 33 5c 6e |int "not| ok 33\n|
|00000a10| 22 3b 7d 0d 69 66 20 28 | 24 61 20 21 7e 20 2f 61 |";}.if (|$a !~ /a|
|00000a20| 2f 20 26 26 20 24 78 29 | 20 7b 20 70 72 69 6e 74 |/ && $x)| { print|
|00000a30| 20 22 6e 6f 74 20 6f 6b | 20 33 34 5c 6e 22 3b 7d | "not ok| 34\n";}|
|00000a40| 20 65 6c 73 65 20 7b 20 | 70 72 69 6e 74 20 22 6f | else { |print "o|
|00000a50| 6b 20 33 34 5c 6e 22 3b | 7d 0d 24 78 20 3d 20 27 |k 34\n";|}.$x = '|
|00000a60| 27 3b 0d 69 66 20 28 24 | 61 20 3d 7e 20 2f 61 2f |';.if ($|a =~ /a/|
|00000a70| 20 26 26 20 24 78 29 20 | 7b 20 70 72 69 6e 74 20 | && $x) |{ print |
|00000a80| 22 6e 6f 74 20 6f 6b 20 | 33 35 5c 6e 22 3b 7d 20 |"not ok |35\n";} |
|00000a90| 65 6c 73 65 20 7b 20 70 | 72 69 6e 74 20 22 6f 6b |else { p|rint "ok|
|00000aa0| 20 33 35 5c 6e 22 3b 7d | 0d 20 20 20 20 69 66 20 | 35\n";}|.    if |
|00000ab0| 28 24 61 20 21 7e 20 2f | 61 2f 20 26 26 20 24 78 |($a !~ /|a/ && $x|
|00000ac0| 29 20 7b 20 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |) { prin|t "not o|
|00000ad0| 6b 20 33 36 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |k 36\n";|} else {|
|00000ae0| 20 70 72 69 6e 74 20 22 | 6f 6b 20 33 36 5c 6e 22 | print "|ok 36\n"|
|00000af0| 3b 7d 0d 0d 24 78 20 3d | 20 31 3b 0d 69 66 20 28 |;}..$x =| 1;.if (|
|00000b00| 24 61 20 3d 7e 20 2f 61 | 2f 20 7c 7c 20 24 78 29 |$a =~ /a|/ || $x)|
|00000b10| 20 7b 20 70 72 69 6e 74 | 20 22 6f 6b 20 33 37 5c | { print| "ok 37\|
|00000b20| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 20 70 72 69 6e |n";} els|e { prin|
|00000b30| 74 20 22 6e 6f 74 20 6f | 6b 20 33 37 5c 6e 22 3b |t "not o|k 37\n";|
|00000b40| 7d 0d 69 66 20 28 24 61 | 20 21 7e 20 2f 61 2f 20 |}.if ($a| !~ /a/ |
|00000b50| 7c 7c 20 24 78 29 20 7b | 20 70 72 69 6e 74 20 22 ||| $x) {| print "|
|00000b60| 6f 6b 20 33 38 5c 6e 22 | 3b 7d 20 65 6c 73 65 20 |ok 38\n"|;} else |
|00000b70| 7b 20 70 72 69 6e 74 20 | 22 6e 6f 74 20 6f 6b 20 |{ print |"not ok |
|00000b80| 33 38 5c 6e 22 3b 7d 0d | 24 78 20 3d 20 27 27 3b |38\n";}.|$x = '';|
|00000b90| 0d 69 66 20 28 24 61 20 | 3d 7e 20 2f 61 2f 20 7c |.if ($a |=~ /a/ ||
|00000ba0| 7c 20 24 78 29 20 7b 20 | 70 72 69 6e 74 20 22 6f || $x) { |print "o|
|00000bb0| 6b 20 33 39 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |k 39\n";|} else {|
|00000bc0| 20 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 33 | print "|not ok 3|
|00000bd0| 39 5c 6e 22 3b 7d 0d 69 | 66 20 28 24 61 20 21 7e |9\n";}.i|f ($a !~|
|00000be0| 20 2f 61 2f 20 7c 7c 20 | 24 78 29 20 7b 20 70 72 | /a/ || |$x) { pr|
|00000bf0| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 34 30 5c 6e |int "not| ok 40\n|
|00000c00| 22 3b 7d 20 65 6c 73 65 | 20 7b 20 70 72 69 6e 74 |";} else| { print|
|00000c10| 20 22 6f 6b 20 34 30 5c | 6e 22 3b 7d 0d 00 00 00 | "ok 40\|n";}....|
|00000c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000c90| 6c 20 3d 20 62 6c 6f 63 | 6b 5f 68 65 61 64 28 79 |l = bloc|k_head(y|
|00000ca0| 79 76 73 70 5b 2d 31 5d | 2e 63 6d 64 76 61 6c 29 |yvsp[-1]|.cmdval)|
|00000cb0| 08 63 6d 64 6f 70 74 2e | 74 00 02 00 00 00 54 45 |.cmdopt.|t.....TE|
|00000cc0| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|00000cd0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 a4 40 a7 6e 00 00 | 0b 9d 00 00 01 ac 69 76 |...@.n..|......iv|
|00000d00| 61 6c 29 3b 20 3b 0d 20 | 20 20 20 62 72 65 61 6b |al); ;. |   break|
|00000d10| 3b 7d 0d 63 61 73 65 20 | 39 3a 0d 23 6c 69 6e 65 |;}.case |9:.#line|
|00000d20| 20 31 31 35 20 22 70 65 | 72 6c 79 2e 79 22 0d 7b | 115 "pe|rly.y".{|
|00000d30| 20 79 79 76 61 6c 2e 69 | 76 61 6c 20 3d 20 73 61 | yyval.i|val = sa|
|00000d40| 76 65 73 74 61 63 6b 2d | 3e 61 72 79 5f 66 69 6c |vestack-|>ary_fil|
|00000d50| 6c 3b 20 3b 0d 20 20 20 | 20 62 72 65 61 6b 3b 7d |l; ;.   | break;}|
|00000d60| 0d 63 61 73 65 20 31 30 | 3a 0d 23 6c 69 6e 65 20 |.case 10|:.#line |
|00000d70| 31 31 39 20 22 70 65 72 | 6c 79 2e 79 22 0d 7b 20 |119 "per|ly.y".{ |
|00000d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 06 | 00 03 00 50 00 20 01 dd |........|...P. ..|
|00000db0| 02 3d 00 50 00 20 01 dd | 02 3d a4 40 a7 6e 00 00 |.=.P. ..|.=.@.n..|
|00000dc0| 00 46 00 00 00 57 00 00 | 00 00 01 00 00 00 00 1e |.F...W..|........|
|00000dd0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2c |.....n..|.n...>.,|
|00000e00| 8e 34 09 8e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.4......|.>..MPSR|
|00000e10| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 03 f0 ff ff 00 00 00 4c | 00 32 9a 00 00 00 00 00 |.......L|.2......|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+